visual basic de kronometre yapma

Forma eklenecekler : 1 label, 3 commandbutton, 1 timer


code:


Dim sadise As Integer 'form boyunca kullanılır
Dim saniye As Integer 'form boyunca kullanılır
Dim dakika As Integer 'form boyunca kullanılır

Private Sub Form_Load()
Timer1.Interval = 95
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
If Timer1.Enabled = True Then
MsgBox ("Önce Durdurun!!")
Else
Label1.Caption = "00:00:00"
sadise = 0
saniye = 0
dakika = 0
End If
End Sub



Private Sub Timer1_Timer()
sadise = sadise + 1
If saniye < 10 Then
Label1.Caption = ("0" & dakika & ":" & "0" & saniye & ":" & "0" & sadise)
Else
Label1.Caption = ("0" & dakika & ":" & saniye & ":" & "0" & sadise) 'dakika saniye ve sadise ekrana yazdırılır
End If
If sadise = 9 Then
saniye = saniye + 1
sadise = 0
End If
If saniye = 60 Then
dakika = dakika + 1
End If
End Sub